home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 43
/
64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64
/
sieger 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
173b
|
6 lines
0 ti$="000000":c=5:b=3125
1 b=b-4:a=b-8:a=a-a/c:ifa<>int(a)goto1
2 a=b-1:d%=5-(a/c-int(a/c))*c+.5:b=3125*d%
3 b=b-4:a=b-8:a=a-a/c:ifa<>int(a)goto3
4 printb-(d%*2101+20);b;ti/60